home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 August / macformat-027.iso / mac / Shareware City / Developers / MDP-80 Folder / Programs / St.Ives.ASM < prev   
Encoding:
Assembly Source File  |  1993-11-12  |  852 b   |  42 lines  |  [TEXT/ALFA]
  1. ; A Poem
  2.  
  3. ; RTK - 10.21.93  last mod: 11-11-93
  4.  
  5. #include std.equ        ; standard monitor equates
  6.  
  7. #org 400                  ; default starting address
  8.  
  9. .loop        lda >text0
  10.             ldx <text0
  11.             jsr _print
  12.             lda >text1
  13.             ldx <text1
  14.             jsr _print
  15.             lda >text2
  16.             ldx <text2
  17.             jsr _print
  18.             lda >text3
  19.             ldx <text3
  20.             jsr _print
  21.             rts
  22. .text0        hex 0c0d
  23.             asc '            A POEM'
  24.             hex 0d0d0d00
  25. .text1        asc '  As I was going to St. Ives'
  26.             hex 0d
  27.             asc '  I met a man with seven wives'
  28.             hex 0d
  29.             asc '  And every wife had seven sacks'
  30.             hex 0d
  31.             asc '  And every sack had seven cats'
  32.             hex 0d
  33.             asc '  And every cat had seven kits.'
  34.             hex 0d0d00
  35. .text2        asc '  Kits, cats, sacks and wives...'
  36.             hex 0d0d
  37.             asc '  How many were going to'
  38.             asc ' St. Ives?'
  39.             hex 0d00
  40. .text3        hex 0d0d
  41.             hex 00
  42.